'Displays how long windows has been running in seconds.


Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Form_Load()
Dim lngReturn As Long
lngReturn = GetTickCount()
MsgBox ("Windows has been running for " & (lngReturn / 1000) & " seconds.")
End Sub